home *** CD-ROM | disk | FTP | other *** search
/ AppleScript - The Beta Release / AppleScript - The Beta Release.iso / Development Tools / Sample Applications / MenuScripter 1.0d4.1 / MenuScripter / MenuScripter.rsrc / SCPT_4192 < prev    next >
Encoding:
Text File  |  1992-11-24  |  180 b   |  5 lines
  1. set mitem to the active item of menu "Font" 
  2. copy selection of window 1 to usersel
  3. set fontname to the name of menu item mitem of menu "Font" 
  4. set the font of usersel to fontname 
  5.